Private Sub Worksheet_Change(ByVal Target As Range)

    If IsUndo Then

        Application.EnableEvents = False

            Application.Undo

        Application.EnableEvents = True

    End If

End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

    Dim ڹ As Range

    Set ڹ = ActiveSheet.UsedRange.SpecialCells(xlCellTypeConstants, xlNumbers)

    IsUndo = Not Intersect(Target, ڹ) Is Nothing

End Sub